home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / DFUE / Aminet-AWNP / Extras / English / Add2AmIRC.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  2000-04-11  |  2.1 KB  |  85 lines
  1. /* Adds /ALIAS /FINDG to Amirc prefs */
  2. ttl='Add2AmIRC.rexx'
  3. LF='0A'x
  4.  
  5. call addlib('rexxreqtools.library',0,-30,0)
  6.  
  7. nal='ALIAS FINDG /rx 'aap' %p'
  8.  
  9. if ~req('This Script will Add/OverWrite the ALIAS'LF'/FINDG in your Default.AmIRCfg file'LF || LF'Use ''/findg ?'' to get possible args','_Continue|_Abort') then exit
  10.  
  11. call req('Please Select the path of'LF'your AmIRC Directory','_OK')
  12. cfg=reqdir(':')'Default.AMIRCfg'
  13.  if ~exists(cfg) then do
  14.  if amd=='AMD' then amd='Aborted'
  15.  call req('Error: finding Default.AmIRCfg in'LF' Path: 'amd,'_OK')
  16.  exit
  17.  end
  18.  
  19. call req('Please Select the path of'LF'your Aminet.awnp File','_OK')
  20. aap=reqdir('sys:tools/Aminet.awnp',"f")
  21.  call open(ah,aap); call readln(ah);aln=readln(ah); call close(ah)
  22.  if index(aln,"$VER: Aminet.awnp ")==0 then do
  23.  call req('Error: finding Aminet.awnp Data in'LF' Path: 'aap,'_OK')
  24.  exit
  25.  end
  26.  
  27. call open(ih,cfg)
  28. call open(oh,'T:Default.AmIRCfg',W)
  29. at=0
  30. alias0=0
  31.  
  32.   do while ~eof(ih)
  33.   ln = readln(ih);
  34.  
  35.     if at=="a" then do
  36.        if ln=="" then do;
  37.        at="e" ; call checkalias()
  38.        end
  39.        else do
  40.        alias0=alias0+1
  41.        alias.alias0=ln
  42.        end
  43.     end
  44.  
  45.      if at==0 then do
  46.      if ln=="# Alias list" then at="a"
  47.      call writeln(oh,ln)
  48.      end
  49.  
  50.   if at=="e" then call writeln(oh,ln)
  51.  
  52.   end
  53.  
  54. call close(ih)
  55. call close(oh)
  56.  
  57. rq=req('Default.AmIRCfg Will be Changed.' || '0A'X || '' || '0A'X || 'Backup: Default.AmIRCfg' || '0A'X || '    As: Default.AmIRCfg.bak ?','_YES|_NO|_Abort')
  58. if rq == 0 then call deteteit()
  59. if rq == 1 then address command 'copy clone "'cfg'" "'cfg'.bak"'
  60.  
  61. address command 'copy clone T:Default.AmIRCfg "'cfg'"'
  62.  
  63. deleteit:
  64. address command 'delete <>nil: T:Default.AmIRCfg'
  65. exit(0)
  66.  
  67.  
  68. checkalias:
  69.  do c=1 to alias0
  70.  wd=upper(word(alias.c,2))
  71.   if wd=="FINDG" then nop
  72.   else; call writeln(oh,alias.c)
  73.  end
  74. call writeln(oh,nal)
  75. return
  76.  
  77. req:
  78.  rq = rtezrequest(arg(1),arg(2),'Add2AmIRC.rexx','rt_reqpos = reqpos_centerscr   rt_leftoffset = 120')
  79. return rq
  80.  
  81. reqdir: PROCEDURE
  82. if arg(2)=="f" then fi=""; else; fi="rtfi_flags=freqf_nofiles"
  83. newf = rtfilerequest(arg(1),,"Select AmIRC dir","OK",fi)
  84. RETURN(newf)
  85.